Unit GraveEMG;

Interface

uses dos,globvar,crt;

var exist : boolean;

procedure Grave_Dados;
Procedure Leitura_Ar_Nervos;
Procedure Escolha_Nervos;
Procedure Leia_Arquivo;


Implementation

procedure Grave_Dados;
   begin
     assign(nervos,No_arq+'.nvc');
       {$I-}
       reset(nervos);
       {$I+};
       exist:= (IOresult=0);
       if not exist then Rewrite(Nervos);
       seek(nervos,Filesize(nervos));
       write(nervos,nervou);
       close(nervos);
   end;


Procedure Leitura_Ar_Nervos;

  begin
      assign(nervos,no_arq+'.nvc');
       {$I-}
       reset(nervos);
       {$I+};
       exist:= (IOresult=0);
       if not exist then write('arquivo nao encontrado...');
       n:=0;
      repeat
       n:=n+1;
        with nervou do
         begin
           seek(nervos,n-1);
            read(nervos,nervou);
                  end;
                  readln;
      Until EOF(nervos);
           close(nervos);
 end;


 Procedure Escolha_Nervos;
 var i : integer;
  begin
      assign(nervos,no_arq+'.nvc');
       {$I-}
       reset(nervos);
       {$I+};
       exist:= (IOresult=0);
       if not exist then write('arquivo nao encontrado...');
       Clrscr;
       writeln('  Escolha o Nervo: ');writeln;
       begin
       For i:= 1 to filesize(nervos) do
          begin
              with nervou do
                   begin
                    read(nervos,nervou);
                    writeLn( ' ',i,'  ',dados[1,12]);
                   end;
              end;
        end;
        begin
         read(n);
            with nervou do
                  begin
                       seek(nervos,n-1);
                       read(nervos,nervou);
                  end;
           close(nervos);
          end;
      end;


Procedure Leia_Arquivo;
var  j  :  integer;
   teste :  boolean;

      begin
     assign(nervos,no_arq+'.nvc');
       {$I-}
       reset(nervos);
       {$I+};
       exist:= (IOresult=0);
       if exist then
       begin
       j:=FileSize(nervos);
         with nervou do
            begin
              seek(nervos,j-1);
              read(nervos,nervou);
             end;
           teste:=EOF(nervos);
        close(nervos);
      end else begin
      writeln('arquivo nao encontrado...Tente outra vez.');
      write('Entre com o nome do arquivo: ');
      end;
      end;
end.

